home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / MACROS1.FAS < prev    next >
Text File  |  1994-02-05  |  13KB  |  246 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) (MAPCAP MAPLAP))
  4. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  5. #Y(#:TOP-LEVEL-FORM-4 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFVAR
  6.    REMOVE-OLD-DEFINITIONS MACRO
  7.    #Y(DEFVAR
  8.       #137Y(01 00 01 00 00 08 D5 AA 6E 41 D6 8D 02 2F 23 9A 57 74 9B 57 57 1B 20 00 14 9C 57 57 54
  9.             54 14 9D 57 57 57 74 AA 8B 03 15 AA 89 5F 3A C5 14 D9 AC 5E 02 A9 2E 02 19 03 9B 57 57
  10.             56 1A 5B C3 1A 6D DF E0 DD B0 77 02 77 02 E1 DD B1 77 02 B0 77 03 77 03 5C 01 1A 20 E2
  11.             DD B0 77 02 E3 DD AF 77 02 77 04 5C 01 1A 15 DB 5F DC DD DE AF 77 02 77 02 77 02 8E 04
  12.             4B 00 14 8E 04 5C 00 14 DD B0 77 02 77 01 32 03 20 5D 03 19 07
  13.            )
  14.       2. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a variable" DEFVAR
  15.       "~S: the constant ~S must not be redefined to be a variable" LET PROCLAIM QUOTE SPECIAL
  16.       UNLESS BOUNDP SET %SET-DOCUMENTATION 'VARIABLE
  17.   )  )
  18. #Y(#:TOP-LEVEL-FORM-5 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFPARAMETER
  19.    REMOVE-OLD-DEFINITIONS MACRO
  20.    #Y(DEFPARAMETER
  21.       #103Y(01 00 01 00 00 08 D5 AA 6E 41 D6 8D 02 2F 1A 9A 57 74 9B 57 57 74 9C 57 57 57 74 A9 8B
  22.             03 0F A9 89 5F 1E C5 14 D9 AB 5E 02 A9 2E 02 19 03 C3 1A 73 E0 DD AF 77 02 E1 DD AF 77
  23.             02 77 04 5C 01 1A 18 DB 5F DC DD DE AE 77 02 77 02 77 02 DF DD AE 77 02 AD 77 03 8E 04
  24.             59 00 14 DD AF 77 02 77 01 32 02 20 5D 04 19 06
  25.            )
  26.       3. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a variable" DEFPARAMETER
  27.       "~S: the constant ~S must not be redefined to be a variable" LET PROCLAIM QUOTE SPECIAL SET
  28.       %SET-DOCUMENTATION 'VARIABLE
  29.   )  )
  30. #Y(#:TOP-LEVEL-FORM-6 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFCONSTANT
  31.    REMOVE-OLD-DEFINITIONS MACRO
  32.    #Y(DEFCONSTANT
  33.       #131Y(01 00 01 00 00 08 D5 AA 6E 41 D6 8D 02 2F 80 59 9A 57 74 9B 57 57 74 9C 57 57 57 74 A9
  34.             8B 03 80 4D DA 5F DB DC DD DE AF 77 02 DE AF 77 02 77 03 77 03 DF E0 DE AF 77 02 77 02
  35.             E1 E2 DE B4 77 02 DE B2 77 02 E3 DE B4 77 02 77 02 77 05 77 03 E4 DE AF 77 02 AE 77 03
  36.             8E 05 19 00 14 DE B0 77 02 77 01 32 02 20 5D 05 19 06 A9 2E 02 19 03 D8 D9 AB 5E 02 E5
  37.             DE B0 77 02 E6 DE B0 77 02 77 04 5C 01 1A 58
  38.            )
  39.       3. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a defined constant" DEFCONSTANT LET
  40.       EVAL-WHEN (COMPILE) C-PROCLAIM-CONSTANT QUOTE IF CONSTANTP WARN
  41.       "~S redefines the constant ~S. Its old value was ~S." SYMBOL-VALUE %PROCLAIM-CONSTANT
  42.       %SET-DOCUMENTATION 'VARIABLE
  43.   )  )
  44. #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) AND MACRO
  45.    #Y(AND
  46.       #66Y(01 00 01 00 00 08 91 02 8F 00 08 98 57 1C 07 5F A8 1A 15 02 19 04 98 56 19 04 90 00 D5
  47.            A8 77 02 C1 76 80 02 16 01 7F 00 98 20 6F 16 01 A7 7C A3 00 A7 6D 9C 60 AA 30 9C 74 77
  48.            02 30 A7 D7 99 58 19 05
  49.           )
  50.       NOT (NIL) COND
  51.   )  )
  52. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) OR MACRO
  53.    #Y(OR
  54.       #44Y(01 00 01 00 00 08 91 02 8F 00 1A 98 57 1C 19 D5 A8 6F 00 17 A7 6D 9C 60 AA 30 9C 74 77
  55.            02 30 A7 D6 99 58 19 05 00 19 04 98 56 19 04
  56.           )
  57.       #.#'LIST COND
  58.   )  )
  59. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) PROG1 MACRO
  60.    #Y(PROG1
  61.       #47Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 1C 9A 57 74 9B 57 75 37 01 6E 82 D7 A8 AB 77 02
  62.            77 01 AA AA 77 01 32 02 20 5D 02 19 06 A9 2E 01 19 03
  63.           )
  64.       2. MACRO-CALL-ERROR LET
  65.   )  )
  66. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) PROG2 MACRO
  67.    #Y(PROG2
  68.       #60Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 29 9A 57 74 9B 57 57 74 9C 57 57 75 37 01 6E 82
  69.            D7 5F D8 AD D7 AC AF 77 02 77 01 AE AE 77 01 32 02 20 78 02 77 03 5C 03 19 07 A9 2E 01
  70.            19 03
  71.           )
  72.       3. MACRO-CALL-ERROR LET PROGN
  73.   )  )
  74. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) WHEN MACRO
  75.    #Y(WHEN
  76.       #34Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 0F 9A 57 74 9B 57 75 D7 A9 D8 9B 76 5C 03 19 05
  77.            A9 2E 01 19 03
  78.           )
  79.       2. MACRO-CALL-ERROR IF PROGN
  80.   )  )
  81. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) UNLESS MACRO
  82.    #Y(UNLESS
  83.       #37Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 12 9A 57 74 9B 57 75 D7 D8 AA 77 02 D9 9B 76 5C
  84.            03 19 05 A9 2E 01 19 03
  85.           )
  86.       2. MACRO-CALL-ERROR IF NOT PROGN
  87.   )  )
  88. #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) RETURN
  89.    REMOVE-OLD-DEFINITIONS MACRO
  90.    #Y(RETURN
  91.       #29Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 0A 9A 57 74 D7 5F A9 5C 03 19 04 A9 2E 01 19 03)
  92.       2. MACRO-CALL-ERROR RETURN-FROM
  93.   )  )
  94. #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) LOOP
  95.    REMOVE-OLD-DEFINITIONS MACRO
  96.    #Y(LOOP
  97.       #32Y(01 00 01 00 00 08 91 02 37 01 6E 82 D5 5F D6 AA AC D7 AD 77 02 77 01 32 02 20 78 02 5C
  98.            03 19 05
  99.           )
  100.       BLOCK TAGBODY GO
  101.   )  )
  102. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DO/DO*-EXPAND
  103.    REMOVE-OLD-DEFINITIONS
  104.    #Y(DO/DO*-EXPAND
  105.       #152Y(07 00 00 00 00 00 9E 1F 35 01 02 37 01 6E 82 37 01 6E 82 B0 5F B1 30 60 41 03 8F 01 06
  106.             D6 9A 76 5C 01 F7 A6 1F 3A 90 0E 7F 0F 98 1F 15 98 57 1F 14 98 57 57 20 13 98 14 80 07
  107.             16 01 1A 65 D5 AB 5E 01 98 1A 72 98 56 1A 6E 90 00 99 57 74 77 02 80 07 98 57 57 74 90
  108.             01 A0 5D 02 FC 16 01 1A 43 D7 5F B2 B0 6E 43 AC D8 B1 D9 90 15 DA B4 77 02 77 03 B1 B8
  109.             B6 31 43 76 DA B6 77 02 B5 DB 5F DC 04 1C 57 76 77 03 77 04 32 02 20 78 03 77 01 32 02
  110.             20 78 02 5C 03 19 0F
  111.            )
  112.       "exit clause in ~S must be a list" DECLARE BLOCK TAGBODY IF GO RETURN-FROM PROGN
  113.   )  )
  114. #Y(#:TOP-LEVEL-FORM-16 #11Y(00 00 00 00 00 01 D5 30 55 19 01) DO)
  115. #Y(#:TOP-LEVEL-FORM-17 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DO
  116.    REMOVE-OLD-DEFINITIONS MACRO
  117.    #Y(DO
  118.       #44Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 17 9A 57 74 9B 57 57 74 9C 57 57 75 A9 A9
  119.            A9 AE D7 D8 D9 2C 07 05 19 06 A9 2E 01 19 03
  120.           )
  121.       3. MACRO-CALL-ERROR DO LET PSETQ DO/DO*-EXPAND
  122.   )  )
  123. #Y(#:TOP-LEVEL-FORM-18 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DO*
  124.    REMOVE-OLD-DEFINITIONS MACRO
  125.    #Y(DO*
  126.       #44Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 17 9A 57 74 9B 57 57 74 9C 57 57 75 A9 A9
  127.            A9 AE D7 D8 D9 2C 07 05 19 06 A9 2E 01 19 03
  128.           )
  129.       3. MACRO-CALL-ERROR DO* LET* SETQ DO/DO*-EXPAND
  130.   )  )
  131. #Y(#:TOP-LEVEL-FORM-19 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DOLIST
  132.    REMOVE-OLD-DEFINITIONS MACRO
  133.    #Y(DOLIST
  134.       #117Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 5C 9A 57 56 74 9B 57 56 57 74 9C 57 56
  135.             57 57 74 9D 57 75 A7 5F AE 30 60 41 02 37 01 6E 82 D7 A8 AE D8 AB 77 02 77 03 AF C4 76
  136.             77 02 DA AA 77 02 AE 88 5F 2E DB B1 C7 76 77 01 DD DE B4 77 02 A0 78 02 B1 5C 04 14 77
  137.             02 DD DF AC 77 02 9E 78 02 E0 B2 E1 AE 77 02 77 03 9F 5D 05 19 0A A9 2E 01 19 03 9F 1A
  138.             60
  139.            )
  140.       2. MACRO-CALL-ERROR DO* CDR (NIL) ENDP LET (NIL) DECLARE IGNORABLE LIST SETQ CAR
  141.   )  )
  142. #Y(#:TOP-LEVEL-FORM-20 #11Y(00 00 00 00 00 01 D5 30 55 19 01) DOTIMES)
  143. #Y(#:TOP-LEVEL-FORM-21 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DOTIMES
  144.    REMOVE-OLD-DEFINITIONS MACRO
  145.    #Y(DOTIMES
  146.       #124Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 4A 9A 57 56 74 9B 57 56 57 74 9C 57 56
  147.             57 57 74 9D 57 75 A7 5F AE 30 60 41 02 8F 00 06 D7 99 76 5C 01 F6 AB 88 5F 29 37 01 6E
  148.             82 D8 AE D9 DA B1 77 02 77 03 A9 AF 77 02 77 02 DB B0 AB 77 03 AE 77 02 AB AD 32 02 20
  149.             5D 03 19 0A A9 2E 01 19 03 D8 AD D9 DA B0 77 02 77 03 77 01 DB AF AF 77 03 AD 77 02 AA
  150.             AC 32 02 20 5D 03 19 09
  151.            )
  152.       2. MACRO-CALL-ERROR DECLARE DO 0. 1+ >=
  153.   )  )
  154. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) PSETQ MACRO
  155.    #Y(PSETQ
  156.       #66Y(01 00 01 00 00 08 91 02 01 02 A9 8F 00 21 98 57 1C 2B 37 01 6E 82 D7 90 02 A9 77 03 80
  157.            03 A7 9A 57 74 77 02 80 02 16 01 98 57 57 F6 8E 00 5F 5F 80 02 D8 A9 6E 43 AB 31 43 58
  158.            58 19 07 D5 D6 AF 5E 02
  159.           )
  160.       "~S called with an odd number of arguments: ~S" PSETQ SETQ LET
  161.   )  )
  162. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) MULTIPLE-VALUE-LIST MACRO
  163.    #Y(MULTIPLE-VALUE-LIST
  164.       #29Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 0A 9A 57 74 D7 D8 A9 5C 03 19 04 A9 2E 01 19 03)
  165.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-CALL #'LIST
  166.   )  )
  167. #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) MULTIPLE-VALUE-BIND MACRO
  168.    #Y(MULTIPLE-VALUE-BIND
  169.       #76Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 14 9A 57 74 9B 57 57 74 9C 57 57 75 37 01 6E 82
  170.            5F AB 5F 1A 13 A9 2E 01 19 03 83 01 00 14 D7 AC 77 02 77 02 80 02 7F 01 A8 89 92 6E 16
  171.            02 D8 A9 D9 AD 77 02 77 02 A9 31 43 76 9C 5D 02 19 08
  172.           )
  173.       3. MACRO-CALL-ERROR POP LET* MULTIPLE-VALUE-LIST
  174.   )  )
  175. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) MULTIPLE-VALUE-SETQ MACRO
  176.    #Y(MULTIPLE-VALUE-SETQ
  177.       #83Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 10 9A 57 74 9B 57 57 74 37 01 6E 82 5F AA 5F 1A
  178.            1C A9 2E 01 19 03 DB AA 6E 43 5C 02 1A 23 83 01 00 D7 A8 D8 AD 77 02 77 03 80 02 7F 01
  179.            A8 89 92 6D 16 02 D9 A9 DA AC 77 02 77 02 77 01 8E 02 56 00 14 5C 03 19 07
  180.           )
  181.       3. MACRO-CALL-ERROR SETQ POP LET* MULTIPLE-VALUE-LIST PROG1
  182.   )  )
  183. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) LOCALLY MACRO
  184.    #Y(LOCALLY #15Y(01 00 01 00 00 08 91 02 D5 5F 9A 5D 02 19 04) LET)
  185.   )
  186. #Y(#:TOP-LEVEL-FORM-27 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) CASE
  187.    REMOVE-OLD-DEFINITIONS MACRO
  188.    #Y(CASE
  189.       #106Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 80 40 9A 57 74 9B 57 75 37 01 6E 82 D7 A8 AB 77
  190.             02 77 01 D8 5F AC 98 1F 38 90 00 98 1F 29 90 00 A7 02 21 27 A7 23 06 23 A7 8A 08 22 C9
  191.             14 AF DD AA 77 02 5C 03 14 9A 57 58 F6 80 02 16 01 7F 00 1A 54 A9 2E 01 19 03 D9 DA 5E
  192.             01 02 1A 67 C7 1A 5C 16 01 A7 30 A3 16 01 76 5C 03 19 06
  193.            )
  194.       2. MACRO-CALL-ERROR LET COND "~S: missing key list" CASE OTHERWISE MEMBER QUOTE EQL
  195.   )  )
  196. #Y(#:TOP-LEVEL-FORM-28 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) PROG
  197.    REMOVE-OLD-DEFINITIONS MACRO
  198.    #Y(PROG
  199.       #62Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 29 9A 57 74 9B 57 75 A7 5F AC 30 60 41 02
  200.            8F 00 06 D7 99 76 5C 01 F6 D8 5F D9 AD AB DA 9F 76 77 01 32 02 20 78 02 5C 03 19 07 A9
  201.            2E 01 19 03
  202.           )
  203.       2. MACRO-CALL-ERROR DECLARE BLOCK LET TAGBODY
  204.   )  )
  205. #Y(#:TOP-LEVEL-FORM-29 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) PROG*
  206.    REMOVE-OLD-DEFINITIONS MACRO
  207.    #Y(PROG*
  208.       #62Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 29 9A 57 74 9B 57 75 A7 5F AC 30 60 41 02
  209.            8F 00 06 D7 99 76 5C 01 F6 D8 5F D9 AD AB DA 9F 76 77 01 32 02 20 78 02 5C 03 19 07 A9
  210.            2E 01 19 03
  211.           )
  212.       2. MACRO-CALL-ERROR DECLARE BLOCK LET* TAGBODY
  213.   )  )
  214. #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) COND MACRO
  215.    #Y(COND
  216.       #33Y(01 00 01 00 00 08 91 02 37 01 6E 82 A8 A8 2F 00 41 02 8E 00 03 99 19 07 D6 AA 77 01 AA
  217.            5C 03 19 07
  218.           )
  219.       IFIFY LET
  220.   )  )
  221. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IFIFY
  222.    REMOVE-OLD-DEFINITIONS
  223.    #Y(IFIFY
  224.       #170Y(02 00 00 00 00 03 8E 02 80 5F 01 02 3F 02 19 03 D5 AA 5E 01 D6 90 03 5E 01 D7 9D 56 57
  225.             58 1A 3D 9C 56 57 57 1B 73 9C 56 57 56 1A 31 9C 56 74 88 5C 6E 99 1A 80 5E D7 9F 56 57
  226.             58 1A 80 52 9C 56 74 88 5F 68 D8 9D 56 74 9E 56 57 57 1B 68 9E 56 57 56 1A 3C 9C 56 74
  227.             89 5C 08 9C 56 56 14 00 1A 80 43 99 1A 2F 8F 02 FF A1 9A 1F FF A3 9A 56 1F FF A2 91 02
  228.             A9 27 6E 41 02 9C 56 57 1B 40 9C 56 74 88 5F 50 9C 56 56 20 0F D8 9D 56 74 9E 56 56 14
  229.             AB 5C 04 14 99 1A 0D D8 D9 AC 9F 56 74 77 03 AC AB 77 04 02 14 3F 02 19 05
  230.            )
  231.       "Not a list of COND clauses: ~S" "The atom ~S must not be used as a COND clause." PROGN IF
  232.       SETQ
  233.   )  )
  234. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAPCAP
  235.    REMOVE-OLD-DEFINITIONS
  236.    #Y(MAPCAP
  237.       #60Y(01 00 00 00 01 17 5F AA 5F AB 1A 22 16 01 A7 30 A3 16 01 73 00 6E 42 A8 7E 02 21 00 1A
  238.            69 90 00 90 00 7F 01 A9 A9 30 A8 66 00 80 01 7F 00 98 1F 5B 98 56 20 69 16 03 A7 30 A3
  239.            19 04
  240.   )  )    )
  241. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAPLAP
  242.    REMOVE-OLD-DEFINITIONS
  243.    #Y(MAPLAP
  244.       #56Y(01 00 00 00 01 17 5F AA 5F AB 1A 1E 16 01 A7 30 A3 16 01 73 00 6E 42 A8 7E 02 21 00 1A
  245.            69 90 00 A8 9A 56 75 30 A8 80 01 7F 00 98 1F 5F 98 56 20 6D 16 03 A7 30 A3 19 04
  246.   )  )    )